(widget-default-create): Insert new text at the :from marker _after_ the

marker, not before it.

diff --git a/lisp/wid-edit.el b/lisp/wid-edit.el
index 2e11b6557529407d524c79845f258d7251894787..d0ff5c0b956ba53b07753f4dbefb9292dd7a17d2 100644 (file)
--- a/lisp/wid-edit.el
+++ b/lisp/wid-edit.el
@@ -1509,7 +1509,7 @@ If that does not exists, call the value of `widget-complete-field'."
        (widget-apply widget :value-create)))
    (let ((from (point-min-marker))
         (to (point-max-marker)))
-     (set-marker-insertion-type from t)
+     (set-marker-insertion-type from nil)
      (set-marker-insertion-type to nil)
      (widget-put widget :from from)
      (widget-put widget :to to)))